home *** CD-ROM | disk | FTP | other *** search
/ Shareware Grab Bag / Shareware Grab Bag.iso / 005 / tonyray1.arc / PC5.PRG < prev    next >
Encoding:
Text File  |  1985-10-23  |  595 b   |  42 lines
  1. CLEA
  2. @01,00 SAY 'LOADING......'
  3. SELE CLOSED
  4. SET INDE TO CLOSNMBR,CLOSNAME
  5. LINE=99
  6. @01,00
  7. @03,00 say 'position printer at top of paper and hit any key'
  8. SET cons off
  9. WAIT
  10. SET cons on
  11. @03,00
  12. @03,00 say 'printing.....'
  13. SET cons off
  14. PAGE=0
  15. DO WHIL .NOT. EOF()
  16. IF LINE>58
  17. IF PAGE>=1
  18. EJEC
  19. ENDI
  20. page=page+1
  21. SET PRIN on
  22. ?
  23. ?'PAGE:'+STR(PAGE)
  24. ?'                      CLOSED CASES BY CLIENT NUMBER'
  25. ? DATE()
  26. ?
  27. ?
  28. ?
  29. SET PRIN off
  30. line=6
  31. ENDI
  32. SET PRIN ON
  33. ? file_nmbr+'  '+clientname+'  '+trim(reference)
  34. ?
  35. SET PRIN off
  36. LINE=LINE+2
  37. SKIP
  38. ENDD
  39. SET cons on
  40. CURR='012'
  41. RETU
  42.